object CardForm: TCardForm Left = 338 Top = 191 Width = 640 Height = 440 HelpContext = 41006 HorzScrollBar.Visible = False VertScrollBar.Visible = False Caption = 'Double or Nothing Card Game' Color = clMaroon Font.Color = clBlack Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter Scaled = False OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnMouseUp = FormMouseUp OnPaint = FormPaint TextHeight = 20 object Royal: TImage Left = 273 Top = 4 Width = 141 Height = 148 Picture.Data = {} Visible = False end object back: TImage Left = 337 Top = 164 Width = 73 Height = 98 Picture.Data = {} Visible = False end object Pos: TImage Left = 257 Top = 164 Width = 73 Height = 98 Picture.Data = {} Visible = False end object Neg: TImage Left = 177 Top = 164 Width = 73 Height = 98 Picture.Data = {} Visible = False end object Suits: TImage Left = 201 Top = 4 Width = 60 Height = 30 Picture.Data = {} Visible = False end object SuitSm: TImage Left = 201 Top = 44 Width = 44 Height = 22 Picture.Data = {} Visible = False end object Black: TImage Left = 129 Top = 84 Width = 117 Height = 28 Picture.Data = {} Visible = False end object Red: TImage Left = 129 Top = 116 Width = 117 Height = 28 Picture.Data = {} Visible = False end object Label1: TLabel Left = 4 Top = 382 Width = 301 Height = 35 Alignment = taCenter AutoSize = False Caption = 'Label1' Font.Color = clYellow Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 12 Top = 328 Width = 605 Height = 33 AutoSize = False Caption = 'A Joker Pays 10-1; an Aces Pays 3-1; any Face Card Pays 2-1; an ' + '8-10 is a Push; a 7 Loses Half Your Winnings; and a 2-6 Loses Al' + 'l Your Winnings.' Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Joker: TImage Left = 417 Top = 164 Width = 73 Height = 98 Picture.Data = {} Visible = False end object BitBtn1: TBitBtn Left = 524 Top = 366 Width = 96 Height = 42 Caption = '&OK' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BitBtn1Click Kind = bkOK end object BitBtn2: TBitBtn Left = 312 Top = 366 Width = 96 Height = 42 HelpContext = 41006 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Kind = bkHelp end object BitBtn3: TBitBtn Left = 418 Top = 366 Width = 96 Height = 42 Caption = '&Pyramid' Default = True Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 2 OnClick = BitBtn3Click Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 04000000000090010000CE0E0000C40E00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 6666666666666000000066666666666666666666666660000000660000000000 0000000000006000000066A2222222220A22222222206000000066A222222222 0A22222222206000000066A2222222220A22222222206000000066A222222222 0A22222222206000000066A2222222220A22222222206000000066A222222222 0A22222222206000000066A2222222220A22222222206000000066A222222222 0A22222222206000000066A2222222220A22222222206000000066AAAAAAAAAA 0AAAAAAAAAA0600000006666666600000000000666666000000066666666A222 2222220666666000000066666666A2222222220666666000000066666666A222 2222220666666000000066666666A2222222220666666000000066666666A222 2222220666666000000066666666A2222222220666666000000066666666A222 2222220666666000000066666666A2222222220666666000000066666666A222 2222220666666000000066666666AAAAAAAAAA06666660000000666666666666 66666666666660000000} end end